home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Graphics_Utils / PovRay_040 / POVRay3 / install-POV < prev    next >
Encoding:
Text File  |  1998-06-24  |  13.1 KB  |  456 lines
  1. ; Install-Script for POV-Ray(tm) V3.02c
  2.  
  3.  
  4. (welcome    "Welcome to Amiga POV-Ray(tm) v3.02c installation.\n"
  5.             "You will need MUI(tm) by Stefan Stuntz in order\n"
  6.             "to use the provided GUI.  The GUI and the guide\n"
  7.             "directory can be installed in a different place\n"
  8.             "than the rest of the package, and the necessary\n"
  9.             "ENVironment variables will be set accordingly.\n"
  10.             "Full Installation requires about 6 MB\n")
  11.  
  12. (set text01 "Please choose a directory to install in.  A subdir named \"POV-RAY3\" will be created. (If you have a previously installed POV-Ray, it will NOT be deleted!)")
  13. (set text02 "Creating directory ")
  14. (set text03 "Copying POV-Ray, #includes, sample scenefiles,\nand supporting files & utilities to\n")
  15. (set text04 "Where do you want POV-Reference dir installed? (HTML files)")
  16. (set text05 "Copying Reference Guide (HTML) and sample scenes to ")
  17. (set text06 "Install POV-GUI?")
  18. (set text07 "Creating default ENV: files.  GUI will use t: for settings file, POV-Ray default settings in main POV-Ray directory.")
  19. (set text08 "POV-GUI needs MUI 3.3 or greater, which I can't find.  Still install GUI?")
  20. (set text09 "Yes")
  21. (set text10 "No")
  22. (set text11 "POV-GUI not installed.")
  23. (set text12 "Creating ENV:POV and ENVARC:POV dirs. Don't Change Name!!")
  24. (set text13 "Installing POV-GUI.")
  25. (set text14 "I recommend that you read the AmigaPOV.html, and follow the advice\n there regarding scripts and assigns.")
  26. (set text15 "What Scenefile Icons would you like to install?")
  27. (set text16 "Iconographics")
  28. (set text17 "NewIcons style")
  29. (set text18 "Simple 4-color")
  30. (set text19 "None")
  31.  
  32. (set muiver (getversion "MUI:mui"))
  33. (set muiver (/ muiver 65536))
  34.  
  35.  
  36.  
  37. (if (< muiver 14)
  38.     (if
  39.         (NOT
  40.             (askbool
  41.                 (prompt text08)
  42.                 (help @askchoice-help)
  43.                 (choices text09 text10)
  44.                 (default 1)
  45.             )
  46.         )
  47.         (set nogui 1)
  48.     )
  49. )
  50.  
  51. (set @default-dest
  52.     (askdir
  53.         (prompt text01)
  54.         (help @askdir-help)
  55.         (default @default-dest)
  56.     )
  57. )
  58.  
  59. (set maindir @default-dest)
  60.  
  61. (set @default-dest
  62.     (tackon @default-dest "POV-Ray3")
  63. )
  64.  
  65. (makedir @default-dest
  66.     (prompt text02 @default-dest)
  67.     (help @makedir-help)
  68.     (infos)
  69.     (confirm)
  70. )
  71.  
  72. (set envarcdir "ENVARC:POV")
  73. (set envdir "ENV:POV")
  74.  
  75. (makedir envarcdir
  76.     (prompt text12)
  77.     (help @makedir-help)
  78. )
  79.  
  80. (makedir envdir
  81.     (prompt text12)
  82.     (help @makedir-help)
  83. )
  84.  
  85. (copyfiles
  86.     (source "/")
  87.     (dest maindir)
  88.     (pattern "POV-Ray.info")
  89. )
  90.  
  91.  
  92. (message text03 @default-dest)
  93.  
  94. (copyfiles
  95.     (source "")
  96.     (dest @default-dest)
  97.     (pattern "povr#?")
  98.     (infos)
  99. )
  100.  
  101. (copyfiles
  102.     (source "")
  103.     (dest @default-dest)
  104.     (pattern "misc")
  105.     (infos)
  106. )
  107.  
  108. (copyfiles
  109.     (source "")
  110.     (dest @default-dest)
  111.     (pattern "include")
  112.     (infos)
  113. )
  114.  
  115. (copyfiles
  116.     (source "")
  117.     (dest @default-dest)
  118.     (pattern "pov3demo")
  119.     (infos)
  120. )
  121.  
  122. (copyfiles
  123.     (source "")
  124.     (dest @default-dest)
  125.     (pattern "povscn")
  126.     (infos)
  127. )
  128.  
  129. (copyfiles
  130.     (source "")
  131.     (dest @default-dest)
  132.     (pattern "scripts")
  133.     (infos)
  134. )
  135.  
  136. (copyfiles
  137.     (source "")
  138.     (dest @default-dest)
  139.     (pattern "texsamps")
  140.     (infos)
  141. )
  142.  
  143. (copyfiles
  144.     (source "")
  145.     (dest @default-dest)
  146.     (pattern "utils")
  147.     (infos)
  148. )
  149.  
  150. (copyfiles
  151.     (source "")
  152.     (dest @default-dest)
  153.     (pattern "s")
  154.     (infos)
  155. )
  156.  
  157. (copyfiles
  158.     (source "")
  159.     (dest @default-dest)
  160.     (pattern "a#?")
  161.     (infos)
  162. )
  163.  
  164. (set icontype
  165.      (askchoice
  166.           (prompt text15)
  167.           (choices text16 text17 text18 text19)
  168.           (default 0)
  169.           (help askchoice-help)
  170.      )
  171. )
  172.  
  173. (if (< icontype 3)
  174.      (
  175.           (set icon (select icontype "icons/igfx.pov.info" "icons/newicon.pov.info" "icons/simple.pov.info" ))
  176.  
  177.           (foreach (tackon @default-dest "misc") ("#?.pov")
  178.                (copyfiles
  179.                     (source icon)
  180.                     (dest (tackon @default-dest "misc"))
  181.                     (newname (cat @each-name ".info"))
  182.                )
  183.           )
  184.           (foreach (tackon @default-dest "texsamps/glasses") ("#?.pov")
  185.                (copyfiles
  186.                     (source icon)
  187.                     (dest (tackon @default-dest "texsamps/glasses"))
  188.                     (newname (cat @each-name ".info"))
  189.                )
  190.           )
  191.           (foreach (tackon @default-dest "texsamps/metals") ("#?.pov")
  192.                (copyfiles
  193.                     (source icon)
  194.                     (dest (tackon @default-dest "texsamps/metals"))
  195.                     (newname (cat @each-name ".info"))
  196.                )
  197.           )
  198.           (foreach (tackon @default-dest "texsamps/skies") ("#?.pov")
  199.                (copyfiles
  200.                     (source icon)
  201.                     (dest (tackon @default-dest "texsamps/skies"))
  202.                     (newname (cat @each-name ".info"))
  203.                )
  204.           )
  205.           (foreach (tackon @default-dest "texsamps/stones") ("#?.pov")
  206.                (copyfiles
  207.                     (source icon)
  208.                     (dest (tackon @default-dest "texsamps/stones"))
  209.                     (newname (cat @each-name ".info"))
  210.                )
  211.           )
  212.           (foreach (tackon @default-dest "texsamps/woods") ("#?.pov")
  213.                (copyfiles
  214.                     (source icon)
  215.                     (dest (tackon @default-dest "texsamps/woods"))
  216.                     (newname (cat @each-name ".info"))
  217.                )
  218.           )
  219.           (foreach (tackon @default-dest "povscn/level1") ("#?.pov")
  220.                (copyfiles
  221.                     (source icon)
  222.                     (dest (tackon @default-dest "povscn/level1"))
  223.                     (newname (cat @each-name ".info"))
  224.                )
  225.           )
  226.           (foreach (tackon @default-dest "povscn/level2") ("#?.pov")
  227.                (copyfiles
  228.                     (source icon)
  229.                     (dest (tackon @default-dest "povscn/level2"))
  230.                     (newname (cat @each-name ".info"))
  231.                )
  232.           )
  233.           (foreach (tackon @default-dest "povscn/level3") ("#?.pov")
  234.                (copyfiles
  235.                     (source icon)
  236.                     (dest (tackon @default-dest "povscn/level3"))
  237.                     (newname (cat @each-name ".info"))
  238.                )
  239.           )
  240.           (foreach (tackon @default-dest "povscn/level3/drums2") ("#?.pov")
  241.                (copyfiles
  242.                     (source icon)
  243.                     (dest (tackon @default-dest "povscn/level3/fish13"))
  244.                     (newname (cat @each-name ".info"))
  245.                )
  246.           )
  247.           (foreach (tackon @default-dest "povscn/level3/ionic5") ("#?.pov")
  248.                (copyfiles
  249.                     (source icon)
  250.                     (dest (tackon @default-dest "povscn/level3/ionic5"))
  251.                     (newname (cat @each-name ".info"))
  252.                )
  253.           )
  254.           (foreach (tackon @default-dest "povscn/level3/ntreal") ("#?.pov")
  255.                (copyfiles
  256.                     (source icon)
  257.                     (dest (tackon @default-dest "povscn/level3/ntreal"))
  258.                     (newname (cat @each-name ".info"))
  259.                )
  260.           )
  261.           (foreach (tackon @default-dest "povscn/level3/pencil") ("#?.pov")
  262.                (copyfiles
  263.                     (source icon)
  264.                     (dest (tackon @default-dest "povscn/level3/pencil"))
  265.                     (newname (cat @each-name ".info"))
  266.                )
  267.           )
  268.           (foreach (tackon @default-dest "povscn/level3/piece2") ("#?.pov")
  269.                (copyfiles
  270.                     (source icon)
  271.                     (dest (tackon @default-dest "povscn/level3/piece2"))
  272.                     (newname (cat @each-name ".info"))
  273.                )
  274.           )
  275.           (foreach (tackon @default-dest "povscn/level3/piece3") ("#?.pov")
  276.                (copyfiles
  277.                     (source icon)
  278.                     (dest (tackon @default-dest "povscn/level3/piece3"))
  279.                     (newname (cat @each-name ".info"))
  280.                )
  281.           )
  282.           (foreach (tackon @default-dest "povscn/level3/snail") ("#?.pov")
  283.                (copyfiles
  284.                     (source icon)
  285.                     (dest (tackon @default-dest "povscn/level3/snail"))
  286.                     (newname (cat @each-name ".info"))
  287.                )
  288.           )
  289.           (foreach (tackon @default-dest "pov3demo/atmos") ("#?.pov")
  290.                (copyfiles
  291.                     (source icon)
  292.                     (dest (tackon @default-dest "pov3demo/atmos"))
  293.                     (newname (cat @each-name ".info"))
  294.                )
  295.           )
  296.           (foreach (tackon @default-dest "pov3demo/camera") ("#?.pov")
  297.                (copyfiles
  298.                     (source icon)
  299.                     (dest (tackon @default-dest "pov3demo/camera"))
  300.                     (newname (cat @each-name ".info"))
  301.                )
  302.           )
  303.           (foreach (tackon @default-dest "pov3demo/demo") ("#?.pov")
  304.                (copyfiles
  305.                     (source icon)
  306.                     (dest (tackon @default-dest "pov3demo/demo"))
  307.                     (newname (cat @each-name ".info"))
  308.                )
  309.           )
  310.           (foreach (tackon @default-dest "pov3demo/halo") ("#?.pov")
  311.                (copyfiles
  312.                     (source icon)
  313.                     (dest (tackon @default-dest "pov3demo/halo"))
  314.                     (newname (cat @each-name ".info"))
  315.                )
  316.           )
  317.           (foreach (tackon @default-dest "pov3demo/lights") ("#?.pov")
  318.                (copyfiles
  319.                     (source icon)
  320.                     (dest (tackon @default-dest "pov3demo/lights"))
  321.                     (newname (cat @each-name ".info"))
  322.                )
  323.           )
  324.           (foreach (tackon @default-dest "pov3demo/objects") ("#?.pov")
  325.                (copyfiles
  326.                     (source icon)
  327.                     (dest (tackon @default-dest "pov3demo/objects"))
  328.                     (newname (cat @each-name ".info"))
  329.                )
  330.           )
  331.           (foreach (tackon @default-dest "pov3demo/other") ("#?.pov")
  332.                (copyfiles
  333.                     (source icon)
  334.                     (dest (tackon @default-dest "pov3demo/other"))
  335.                     (newname (cat @each-name ".info"))
  336.                )
  337.           )
  338.           (foreach (tackon @default-dest "pov3demo/radios") ("#?.pov")
  339.                (copyfiles
  340.                     (source icon)
  341.                     (dest (tackon @default-dest "pov3demo/radios"))
  342.                     (newname (cat @each-name ".info"))
  343.                )
  344.           )
  345.           (foreach (tackon @default-dest "pov3demo/recurse") ("#?.pov")
  346.                (copyfiles
  347.                     (source icon)
  348.                     (dest (tackon @default-dest "pov3demo/recurse"))
  349.                     (newname (cat @each-name ".info"))
  350.                )
  351.           )
  352.           (foreach (tackon @default-dest "pov3demo/surfaces") ("#?.pov")
  353.                (copyfiles
  354.                     (source icon)
  355.                     (dest (tackon @default-dest "pov3demo/surfaces"))
  356.                     (newname (cat @each-name ".info"))
  357.                )
  358.           )
  359.           (foreach (tackon @default-dest "pov3demo/showoff/newltpot") ("#?.pov")
  360.                (copyfiles
  361.                     (source icon)
  362.                     (dest (tackon @default-dest "pov3demo/showoff/newlpot"))
  363.                     (newname (cat @each-name ".info"))
  364.                )
  365.           )
  366.           (foreach (tackon @default-dest "pov3demo/showoff") ("#?.pov")
  367.                (copyfiles
  368.                     (source icon)
  369.                     (dest (tackon @default-dest "pov3demo/showoff"))
  370.                     (newname (cat @each-name ".info"))
  371.                )
  372.           )
  373.      )
  374. )
  375.  
  376. (set @docdir
  377.     (askdir
  378.         (prompt text04 @docdir)
  379.         (help @askdir-help)
  380.         (default @default-dest)
  381.     )
  382. )
  383.  
  384. (copyfiles
  385.     (prompt text04 @docdir)
  386.     (help @copyfiles-help)
  387.     (source "")
  388.     (dest @docdir)
  389.     (pattern "POV-Ref#?")
  390.     (infos)
  391. )
  392.  
  393. (if (askbool
  394.         (prompt text06)
  395.         (help @askchoice-help)
  396.         (choices text09 text10)
  397.         (default 1)
  398.     )
  399.     (
  400.         (copyfiles
  401.             (prompt text13)
  402.             (help @copyfiles-help)
  403.             (source "")
  404.             (dest @default-dest)
  405.             (pattern "pov-gui")
  406.             (infos)
  407.         )
  408.     )
  409. )
  410.  
  411. (message text07)
  412.  
  413.     (delete (tackon envdir "POVINI"))
  414.     (delete (tackon envarcdir "POVINI"))
  415.     (delete (tackon envdir "POVGUIINI"))
  416.     (delete (tackon envarcdir "POVGUIINI"))
  417.  
  418.     (textfile (dest (tackon envdir "POVINI"))
  419.         (append (tackon @default-dest "POVRAY.INI"))
  420.     )
  421.  
  422.     (textfile (dest (tackon envarcdir "POVINI"))
  423.         (append (tackon @default-dest "POVRAY.INI"))
  424.     )
  425.  
  426.     (textfile (dest (tackon envdir "POVGUIINI"))
  427.         (append "T:povray.ini")
  428.     )
  429.  
  430.     (textfile (dest (tackon envarcdir "POVGUIINI"))
  431.         (append "T:povray.ini")
  432.     )
  433.  
  434.     (textfile (dest (tackon envdir "POVHELP"))
  435.         (append (tackon @docdir "POV-Reference/POV-Ray.guide"))
  436.       )
  437.  
  438.      (textfile (dest (tackon envarcdir "POVHELP"))
  439.         (append (tackon @docdir "POV-Reference/POV-Ray.guide"))
  440.     )
  441.  
  442. (copyfiles
  443.     (source "env/sys")
  444.     (dest "ENVARC:sys")
  445.     (pattern "#?")
  446. )
  447.  
  448. (copyfiles
  449.     (source "env/sys")
  450.     (dest "ENV:sys")
  451.     (pattern "#?")
  452. )
  453.  
  454. (message text14)
  455. (exit)
  456.